home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / mask_log.G < prev    next >
Encoding:
Text File  |  1992-12-24  |  14.1 KB  |  484 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   menu_mask_unload
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Unload"
  11.     :menu-item-labels       ("Current selection" "All" )
  12.     :menu-item-label-types  (:string :string )
  13.     :menu-item-states       (:active :active )
  14.     :menu-item-defaults     (t nil )
  15.     :initial-selections     (nil nil )
  16.     :menu-item-handlers     (nil nil )
  17.     :menu-item-menus        (nil nil )
  18.     :menu-item-colors       ("" "" )
  19.     :pinnable               nil
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (menu_mask_unload "All")
  24.         :when                   (Notify )
  25.         :to                     (menu_mask_unload "All")
  26.         :function_type          ExecuteCode
  27.         :arg_type               (:string)
  28.         :action                 ("unload_all_masks(TRUE);")
  29.         )
  30.         (
  31.         :from                   (menu_mask_unload "Current selection")
  32.         :when                   (Notify )
  33.         :to                     (menu_mask_unload "Current selection")
  34.         :function_type          ExecuteCode
  35.         :arg_type               (:string)
  36.         :action                 ("unload_mask(TRUE);")
  37.         )
  38.     )
  39. )
  40. (
  41.     :type                   :menu
  42.     :name                   menu_mask
  43.     :help                   ""
  44.     :columns                1
  45.     :menu-type              :command
  46.     :menu-handler           nil
  47.     :menu-title             ""
  48.     :menu-item-labels       ("Load ..." "New ..." "Save" "Save as ..." "Unload" )
  49.     :menu-item-label-types  (:string :string :string :string :string )
  50.     :menu-item-states       (:active :active :active :active :active )
  51.     :menu-item-defaults     (t nil nil nil nil )
  52.     :initial-selections     (nil nil nil nil nil )
  53.     :menu-item-handlers     (nil nil nil nil nil )
  54.     :menu-item-menus        (nil nil nil nil menu_mask_unload )
  55.     :menu-item-colors       ("" "" "" "" "" )
  56.     :pinnable               nil
  57.     :user-data              ()
  58.     :actions                (
  59.         (
  60.         :from                   (menu_mask "Save")
  61.         :when                   (Notify )
  62.         :to                     (menu_mask "Save")
  63.         :function_type          ExecuteCode
  64.         :arg_type               (:string)
  65.         :action                 ("save_mask();")
  66.         )
  67.     )
  68. )
  69. (
  70.     :type                   :popup-window
  71.     :name                   pop_mask_log
  72.     :owner                  win
  73.     :width                  382
  74.     :height                 259
  75.     :background-color       ""
  76.     :foreground-color       ""
  77.     :label                  "Segal: Mask Log"
  78.     :label-type             :string
  79.     :initial-state          :invisible
  80.     :show-footer            nil
  81.     :resizable              nil
  82.     :pinned                 t
  83.     :done-handler           nil
  84.     :event-handler          nil
  85.     :user-data              ()
  86.     :actions                ()
  87. )
  88. (
  89.     :type                   :control-area
  90.     :name                   controls
  91.     :owner                  pop_mask_log
  92.     :help                   ""
  93.     :x                      0
  94.     :y                      0
  95.     :width                  382
  96.     :height                 259
  97.     :background-color       ""
  98.     :foreground-color       ""
  99.     :initial-state          :visible
  100.     :show-border            nil
  101.     :menu                   nil
  102.     :event-handler          edit_mask_defined
  103.     :user-data              ()
  104.     :actions                (
  105.         (
  106.         :from                   (pop_mask_log controls)
  107.         :when                   (AnyEvent )
  108.         :to                     (pop_mask_log controls)
  109.         :function_type          CallFunction
  110.         :arg_type               ()
  111.         :action                 (edit_mask_defined)
  112.         )
  113.     )
  114. )
  115. (
  116.     :type                   :button
  117.     :name                   but_mask
  118.     :owner                  controls
  119.     :help                   ""
  120.     :x                      8
  121.     :y                      8
  122.     :width                  63
  123.     :height                 19
  124.     :constant-width         nil
  125.     :button-type            :normal
  126.     :foreground-color       ""
  127.     :label                  "Mask"
  128.     :label-type             :string
  129.     :initial-state          :active
  130.     :menu                   menu_mask
  131.     :notify-handler         nil
  132.     :event-handler          nil
  133.     :user-data              ()
  134.     :actions                ()
  135. )
  136. (
  137.     :type                   :message
  138.     :name                   msg_masks_loaded
  139.     :owner                  controls
  140.     :help                   ""
  141.     :x                      244
  142.     :y                      12
  143.     :width                  111
  144.     :height                 13
  145.     :foreground-color       ""
  146.     :label                  "Masks Loaded: 0"
  147.     :label-type             :string
  148.     :label-bold             t
  149.     :initial-state          :active
  150.     :event-handler          nil
  151.     :user-data              ()
  152.     :actions                ()
  153. )
  154. (
  155.     :type                   :scrolling-list
  156.     :name                   ls_mask_filenames
  157.     :owner                  controls
  158.     :help                   ""
  159.     :x                      8
  160.     :y                      32
  161.     :width                  350
  162.     :height                 164
  163.     :value-x                8
  164.     :value-y                32
  165.     :rows                   8
  166.     :foreground-color       ""
  167.     :label                  ""
  168.     :title                  ""
  169.     :label-type             :string
  170.     :layout-type            :horizontal
  171.     :read-only              nil
  172.     :multiple-selections    nil
  173.     :selection-required     nil
  174.     :initial-state          :active
  175.     :droppable              nil
  176.     :default-drop-site      nil
  177.     :menu                   nil
  178.     :notify-handler         nil
  179.     :event-handler          nil
  180.     :initial-list-values    ()
  181.     :initial-list-glyphs    ()
  182.     :initial-selections     ()
  183.     :user-data              ()
  184.     :actions                (
  185.         (
  186.         :from                   (pop_mask_log ls_mask_filenames)
  187.         :when                   (Notify )
  188.         :to                     (pop_mask_log ls_mask_filenames)
  189.         :function_type          ExecuteCode
  190.         :arg_type               (:string)
  191.         :action                 ("select_mask_in_list(string);")
  192.         )
  193.     )
  194. )
  195. (
  196.     :type                   :setting
  197.     :name                   set_mask_type
  198.     :owner                  controls
  199.     :help                   ""
  200.     :x                      12
  201.     :y                      204
  202.     :width                  351
  203.     :height                 23
  204.     :value-x                93
  205.     :value-y                204
  206.     :rows                   1
  207.     :columns                0
  208.     :layout-type            :horizontal
  209.     :foreground-color       ""
  210.     :setting-type           :exclusive
  211.     :selection-required     t
  212.     :label                  "Mask type:"
  213.     :label-type             :string
  214.     :notify-handler         set_mask_type
  215.     :event-handler          nil
  216.     :choices                ("Edit" "Not Applied" "Inclusive" "Exclusive" )
  217.     :choice-label-types     (:string :string :string :string )
  218.     :choice-colors          ("" "" "" "" )
  219.     :initial-selections     (nil nil nil nil )
  220.     :initial-state          :active
  221.     :user-data              ()
  222.     :actions                (
  223.         (
  224.         :from                   (pop_mask_log set_mask_type)
  225.         :when                   (Notify )
  226.         :to                     (pop_mask_log set_mask_type)
  227.         :function_type          CallFunction
  228.         :arg_type               ()
  229.         :action                 (set_mask_type)
  230.         )
  231.     )
  232. )
  233. (
  234.     :type                   :button
  235.     :name                   but_options
  236.     :owner                  controls
  237.     :help                   ""
  238.     :x                      152
  239.     :y                      236
  240.     :width                  79
  241.     :height                 19
  242.     :constant-width         nil
  243.     :button-type            :normal
  244.     :foreground-color       ""
  245.     :label                  "Options ..."
  246.     :label-type             :string
  247.     :initial-state          :active
  248.     :menu                   nil
  249.     :notify-handler         nil
  250.     :event-handler          nil
  251.     :user-data              ()
  252.     :actions                (
  253.         (
  254.         :from                   (pop_mask_log but_options)
  255.         :when                   (Notify )
  256.         :to                     (pop_options)
  257.         :function_type          :user_defined
  258.         :arg_type               ()
  259.         :action                 (Show)
  260.         )
  261.     )
  262. )
  263. (
  264.     :type                   :button
  265.     :name                   but_close_mask_log
  266.     :owner                  controls
  267.     :help                   ""
  268.     :x                      312
  269.     :y                      236
  270.     :width                  51
  271.     :height                 19
  272.     :constant-width         nil
  273.     :button-type            :normal
  274.     :foreground-color       ""
  275.     :label                  "Close"
  276.     :label-type             :string
  277.     :initial-state          :active
  278.     :menu                   nil
  279.     :notify-handler         nil
  280.     :event-handler          nil
  281.     :user-data              ()
  282.     :actions                (
  283.         (
  284.         :from                   (pop_mask_log but_close_mask_log)
  285.         :when                   (Notify )
  286.         :to                     (pop_mask_log)
  287.         :function_type          :user_defined
  288.         :arg_type               ()
  289.         :action                 (Hide)
  290.         )
  291.         (
  292.         :from                   (pop_mask_log but_close_mask_log)
  293.         :when                   (Notify )
  294.         :to                     (pop_options)
  295.         :function_type          :user_defined
  296.         :arg_type               ()
  297.         :action                 (Hide)
  298.         )
  299.     )
  300. )
  301. (
  302.     :type                   :popup-window
  303.     :name                   pop_options
  304.     :owner                  win
  305.     :width                  234
  306.     :height                 91
  307.     :background-color       ""
  308.     :foreground-color       ""
  309.     :label                  "Segal: Mask Log Options"
  310.     :label-type             :string
  311.     :initial-state          :invisible
  312.     :show-footer            nil
  313.     :resizable              nil
  314.     :pinned                 t
  315.     :done-handler           nil
  316.     :event-handler          nil
  317.     :user-data              ()
  318.     :actions                ()
  319. )
  320. (
  321.     :type                   :control-area
  322.     :name                   controls
  323.     :owner                  pop_options
  324.     :help                   ""
  325.     :x                      0
  326.     :y                      0
  327.     :width                  234
  328.     :height                 91
  329.     :background-color       ""
  330.     :foreground-color       ""
  331.     :initial-state          :visible
  332.     :show-border            nil
  333.     :menu                   nil
  334.     :event-handler          nil
  335.     :user-data              ()
  336.     :actions                ()
  337. )
  338. (
  339.     :type                   :setting
  340.     :name                   set_apply_log
  341.     :owner                  controls
  342.     :help                   ""
  343.     :x                      19
  344.     :y                      8
  345.     :width                  133
  346.     :height                 23
  347.     :value-x                95
  348.     :value-y                8
  349.     :rows                   1
  350.     :columns                0
  351.     :layout-type            :horizontal
  352.     :foreground-color       ""
  353.     :setting-type           :stack
  354.     :selection-required     t
  355.     :label                  "Apply log:"
  356.     :label-type             :string
  357.     :notify-handler         nil
  358.     :event-handler          nil
  359.     :choices                ("Yes" "No" )
  360.     :choice-label-types     (:string :string )
  361.     :choice-colors          ("" "" )
  362.     :choice-defaults        (nil nil )
  363.     :initial-selections     (nil nil )
  364.     :initial-state          :active
  365.     :user-data              ()
  366.     :actions                (
  367.         (
  368.         :from                   (pop_options set_apply_log "No")
  369.         :when                   (Notify )
  370.         :to                     (pop_options set_apply_log "No")
  371.         :function_type          ExecuteCode
  372.         :arg_type               (:string)
  373.         :action                 ("mlog.apply_log = FALSE;")
  374.         )
  375.         (
  376.         :from                   (pop_options set_apply_log "Yes")
  377.         :when                   (Notify )
  378.         :to                     (pop_options set_apply_log "Yes")
  379.         :function_type          ExecuteCode
  380.         :arg_type               (:string)
  381.         :action                 ("mlog.apply_log = TRUE;")
  382.         )
  383.     )
  384. )
  385. (
  386.     :type                   :setting
  387.     :name                   set_apply_order
  388.     :owner                  controls
  389.     :help                   ""
  390.     :x                      4
  391.     :y                      35
  392.     :width                  226
  393.     :height                 23
  394.     :value-x                95
  395.     :value-y                35
  396.     :rows                   1
  397.     :columns                0
  398.     :layout-type            :horizontal
  399.     :foreground-color       ""
  400.     :setting-type           :stack
  401.     :selection-required     t
  402.     :label                  "Apply order:"
  403.     :label-type             :string
  404.     :notify-handler         nil
  405.     :event-handler          nil
  406.     :choices                ("Exclude, include" "Include, exclude" )
  407.     :choice-label-types     (:string :string )
  408.     :choice-colors          ("" "" )
  409.     :choice-defaults        (nil nil )
  410.     :initial-selections     (nil nil )
  411.     :initial-state          :active
  412.     :user-data              ()
  413.     :actions                (
  414.         (
  415.         :from                   (pop_options set_apply_order "Exclude, include")
  416.         :when                   (Notify )
  417.         :to                     (pop_options set_apply_order "Exclude, include")
  418.         :function_type          ExecuteCode
  419.         :arg_type               (:string)
  420.         :action                 ("mlog.apply_order = ORDER_EI;")
  421.         )
  422.         (
  423.         :from                   (pop_options set_apply_order "Include, exclude")
  424.         :when                   (Notify )
  425.         :to                     (pop_options set_apply_order "Include, exclude")
  426.         :function_type          ExecuteCode
  427.         :arg_type               (:string)
  428.         :action                 ("mlog.apply_order = ORDER_IE;")
  429.         )
  430.     )
  431. )
  432. (
  433.     :type                   :button
  434.     :name                   but_default
  435.     :owner                  controls
  436.     :help                   ""
  437.     :x                      86
  438.     :y                      68
  439.     :width                  63
  440.     :height                 19
  441.     :constant-width         nil
  442.     :button-type            :normal
  443.     :foreground-color       ""
  444.     :label                  "Default"
  445.     :label-type             :string
  446.     :initial-state          :active
  447.     :menu                   nil
  448.     :notify-handler         nil
  449.     :event-handler          nil
  450.     :user-data              ()
  451.     :actions                ()
  452. )
  453. (
  454.     :type                   :button
  455.     :name                   but_close_options
  456.     :owner                  controls
  457.     :help                   ""
  458.     :x                      172
  459.     :y                      68
  460.     :width                  51
  461.     :height                 19
  462.     :constant-width         nil
  463.     :button-type            :normal
  464.     :foreground-color       ""
  465.     :label                  "Close"
  466.     :label-type             :string
  467.     :initial-state          :active
  468.     :menu                   nil
  469.     :notify-handler         nil
  470.     :event-handler          nil
  471.     :user-data              ()
  472.     :actions                (
  473.         (
  474.         :from                   (pop_options but_close_options)
  475.         :when                   (Notify )
  476.         :to                     (pop_options)
  477.         :function_type          :user_defined
  478.         :arg_type               ()
  479.         :action                 (Hide)
  480.         )
  481.     )
  482. )
  483. )
  484.